home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp-luc.el.z / ilisp-luc.el
Encoding:
Text File  |  1998-05-21  |  1.9 KB  |  64 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp-luc.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24. ;;;
  25. ;;; ILISP Lucid Common Lisp dialect definition
  26. ;;;
  27.  
  28.  
  29.  
  30. ;;;%%%Lucid
  31. (defvar ilisp-lucid-init-file "lucid.lisp")
  32.  
  33.  
  34. (defun lucid-check-prompt (old new)
  35.   "Compare the break level printed at the beginning of the prompt."
  36.   (let* ((old-level (if (and old (eq 0 (string-match "\\(->\\)+" old)))
  37.              (- (match-end 0) (match-beginning 0))
  38.              0))
  39.      (new-level (if (eq 0 (string-match "\\(->\\)+" new))
  40.              (- (match-end 0) (match-beginning 0))
  41.              0)))
  42.     (<= new-level old-level)))
  43.  
  44. ;;;
  45. (defdialect lucid "Lucid Common LISP"
  46.   clisp
  47.   (ilisp-load-init 'lucid ilisp-lucid-init-file)
  48.   (setq comint-prompt-regexp "^\\(->\\)+ \\|^[^> ]*> "
  49.     comint-fix-error ":a"
  50.     ilisp-reset ":a :t"
  51.     comint-continue ":c"
  52.     comint-interrupt-regexp ">>Break: Keyboard interrupt"
  53.     comint-prompt-status 
  54.     (function (lambda (old line)
  55.       (comint-prompt-status old line 'lucid-check-prompt))))
  56.   (setq ilisp-error-regexp "ILISP:[^\"]*\\|>>[^\n]*")
  57.   (setq ilisp-source-types (append ilisp-source-types '(("any"))))
  58.   (setq ilisp-find-source-command 
  59.     "(ILISP:ilisp-source-files \"%s\" \"%s\" \"%s\")")
  60.   (setq ilisp-binary-command 
  61.     "(first (last lucid::*load-binary-pathname-types*))"))
  62.  
  63. (if (not lucid-program) (setq lucid-program "lisp"))
  64.